
library(dplyr)
basePath = '/gscratch/comdata/users/kaylea/taboo/'
dataPath = 'processed_data/'
infile = 'namelookupsClean.tsv'

userDF = read.table(paste0(basePath, dataPath, infile), header=TRUE, sep='\t', stringsAsFactors=FALSE, quote='') ## load up file
userDF$editor = NULL ## drop unneeded column
userDF$editor = userDF$encodedEditor ## rename columns
userDF$encodedEditor = NULL ## rename columns
